Attribute VB_Name = "Module19"
Private Declare Function ECF_AbreComprovanteNaoFiscalVinculadoMFD Lib "CONVECF.DLL" (ByVal FormaPag As String, ByVal Valor As String, ByVal NumeroCupom As String, ByVal CGC As String, ByVal Nome As String, ByVal Endereco As String) As Integer
Private Declare Function ECF_UsaComprovanteNaoFiscalVinculadoTEF Lib "CONVECF.DLL" (ByVal Texto As String) As Integer
Private Declare Function ECF_FechaComprovanteNaoFiscalVinculado Lib "CONVECF.DLL" () As Integer
Private Declare Function ECF_SegundaViaNaoFiscalVinculadoMFD Lib "CONVECF.DLL" () As Integer
Private Declare Function ECF_ReimpressaoNaoFiscalVinculadoMFD Lib "CONVECF.DLL" () As Integer
Private Declare Function ECF_EstornoNaoFiscalVinculadoMFD Lib "CONVECF.DLL" (ByVal CGC As String, ByVal Nome As String, ByVal Endereco As String) As Integer

Function CupomVinculado()
    
    Dim Pag, Preco, COO, Text  As String
    
   '''''''abrir vinculado ''''''
    Pag = Space(15)
    Preco = Space(14)
    COO = Space(6)
    
    retorno = ECF_AbreComprovanteNaoFiscalVinculadoMFD("Cartão", "00000000000540", "000000", "111.222.333/4444-55", "Sweda", "Dona Brígida, 713")
    
    MsgBox " 'Abrir Vinculado' " & vbCrLf & "Status: " & retorno
    
    
    '''''''imprimir Texto ''''''''
    Text = Space(618)
    Text = Chr(16) & "B" & Chr(16) & "E" & Chr(16) & "B" & "TEF" & Chr(16) & "N" & vbCrLf & "       COMPROVANTE DE OPERACAO" & vbCrLf & "ESTABEL: Sweda Informática" & vbCrLf & "VENDA CREDITO A VISTA" & vbCrLf & "VALOR VENDA   :        5,40" & vbCrLf & "VALOR SERVICO :        0,00" & vbCrLf & "VALOR FINAL   :        5,40" & vbCrLf & "       RECONHECO E PAGAREI A" & vbCrLf & "         IMPORTANCIA ACIMA"
    retorno = ECF_UsaComprovanteNaoFiscalVinculadoTEF(Text)
    
    MsgBox " 'Impressão de Texto' " & vbCrLf & "Status: " & retorno
     
     
    '''''''' fechar comprovante'''''''''
    retorno = ECF_FechaComprovanteNaoFiscalVinculado
    
    MsgBox " 'Fechar 1ª Via' " & vbCrLf & "Status: " & retorno
    
    '''''''''2ª Via '''''''''''
    retorno = ECF_SegundaViaNaoFiscalVinculadoMFD
    
    MsgBox " 'Enviar 2ª Via' " & vbCrLf & "Status: " & retorno

    
End Function

Function EstornoVinculado()

Dim Text As String
    '''''''' Estorno ''''''''
    retorno = ECF_EstornoNaoFiscalVinculadoMFD("111.222.333/4444-55", "Sweda", "Dona Brígida, 713")
    
    MsgBox " 'Estorno Vinculado' " & vbCrLf & "Status: " & retorno
    
    ''''''' inserir texto''''''''
    Text = Space(618)
    Text = "Estorno da Operação TEF"
    retorno = ECF_UsaComprovanteNaoFiscalVinculadoTEF(Text)
    
    MsgBox " 'Impressão de Texto' " & vbCrLf & "Status: " & retorno
    
     '''''''' fechar comprovante'''''''''
    retorno = ECF_FechaComprovanteNaoFiscalVinculado
    
    MsgBox " 'Fechar Comprovante de Estorno' " & vbCrLf & "Status: " & retorno
End Function

Function ReimpressaoVinculado()
    Dim Text As String
    
    retorno = ECF_ReimpressaoNaoFiscalVinculadoMFD
    
    MsgBox " 'Reimpressão do Vinculado' " & vbCrLf & "Status: " & retorno
    
     ''''''' Inserir texto''''''''
    Text = "Reimpressão" & Chr(16) & "B" & Chr(16) & "E" & Chr(16) & "B" & "TEF" & Chr(16) & "N" & vbCrLf & "       COMPROVANTE DE OPERACAO" & vbCrLf & "ESTABEL: Sweda Informática" & vbCrLf & "VENDA CREDITO A VISTA" & vbCrLf & "VALOR VENDA   :        5,40" & vbCrLf & "VALOR SERVICO :        0,00" & vbCrLf & "VALOR FINAL   :        5,40" & vbCrLf & "       RECONHECO E PAGAREI A" & vbCrLf & "         IMPORTANCIA ACIMA"
    retorno = ECF_UsaComprovanteNaoFiscalVinculadoTEF(Text)
    
    MsgBox " 'Impressão de Texto' " & vbCrLf & "Status: " & retorno
    
     '''''''' Fechar 1ª via'''''''''
    retorno = ECF_FechaComprovanteNaoFiscalVinculado
    
    MsgBox " 'Fechar Reimpressão da 1ª Via' " & vbCrLf & "Status: " & retorno

    '''''''''' Enviar a 2ª Via '''''''''
    retorno = ECF_SegundaViaNaoFiscalVinculadoMFD
    
    MsgBox " 'Enviar 2ª Via' " & vbCrLf & "Status: " & retorno

    

End Function
